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PAEBAAAASLALALALAALALALALALALALESEESESE SESE SESE SERRE ESE EERE EEE E SAREE SERA SEAS OS 
D. N. CUTLER 26-AUG-76 
MODIFIED BY: 
v03-015 paces? Hai Huang 16-Aug-1984 
Retract HH0048. eodee deallocation on dismount will 
be done in the file systems and IOCSDISMOUNT. 
VO3-014 HHO048 Hai Huang 15-Aug-1984 


Deallocate the ieeles on last channel deassign if the 
ioetan owner has gone away. 


V03-013 ACG0441 Andrew C. Goldstein, 8-Au Ts 15:16 
Remove foreign dismount logic (moved to DIS 
V03-012 HHO033 Hai Huang 06-Jul-1984 


Do foreign volume cleanups if the device is allocated 
to the top level process in the process tree. 


v03-011 HHOO23 Hai Huang 05-Jun-1984 
Correctly bendia fast channel deassign on an allocated 
device. 

v03-010 LMP0221 Pilan 30-Mar-1984 15:42 
Change oe _ownuic™ to KORBSL MOUNER and ucBsu. -VPROT to 
ORBSW_PROT 

v03-009 ACG0399 Andrew C. Goldstein, 24-F eb-1984 oe: 59 


Incorporate 1/0 database Locking rewrite, move LAST_CHA 
routine to IOSUBNPAG so it can be shared by DEALLOCRTE. 
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voee008 ets 7 §4:23:35 SYS.SRCISYSDASSGN.MAR; 1 ye dy 
correct flow in deallocating device on dismount. 


v03-008 ¢DS0001 Christian D. Saether 2-Sep-1983 
Move deallocate on dismount action here from ioc$dismount 
so that the device deallaction does not occur until 
the last channel goes away. 


v03-007 JLV0301 Jake VanNo 30-JUL-1983 
Add second call to TOCSVERTFYCHAN to prevent double 
deassign. 

v03-006 TCM0002 Trudy C. Matthews 28-Jun-1983 
Small change to interface to EXESUNLOCK_DEV. 

V03-005 ROW0189 Ralph 0. Weber 21-JUN-1983 


Correct action taken ty discovery of a pending kernel mode 

AST cure “wait for all outstanding I/0 to finish’ Logic. 

Change method for lowering IPL to 0 from SETIPL to REI. The 
intent of lowering IPL is to allow the kernel mode AST to be 

delivered. However, the AST will be delivered only if IPL is 

lowered via an REI. (Only the REI instruction delivers AST 
interrupts.'') 


v03-004 TCM0001 Trudy C. Matthews 17-May-1983 
Dequeuve cluster-wide lock on last channel de-assign. 
v03-003 ROwW0170 Ralph 0. weber 12-MAR-1983 


Reorder actual deassignment logic to be consistant with the 
notion that the mailbox driver should perform all mailbox 
Sepentent rocessing in its cancel I/0 routine. Setup use of 
CANSC_AMBXDGN cancel reason code to signal mailbox driver when 
it is being called due to last reference deassignment on an 
associated mailbox. 


v03-002 ROW0127 Ralph 0. Weber 5-0CT-1982 
Make changes required to use new UCB creation and deletion 
routines in UCBCREDEL. Modify the delete-UCB check at the end 
of this module to call IOCSDELMBX if the device pogepencent 
characteristics indicate a mailbox or call IOCSDELETE_UCB if 
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a8 mailbox. 
100 v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
! 1 Added SDEVDEF. 
: 5 SYSTEM SERVICE DEASSIGN I/0 CHANNEL 
: i ; MACRO LIBRARY CALLS 
1 
i SCANDEF ;DEFINE CANCEL REASON CODES 
0 1 SCCBDEF sDEFINE CCB OFFSETS 
110 SDDBDEF sDEFINE DDB OFFSETS 
1117 SDDTDEF sDEFINE DDT OFFSETS 
16 SDEVOEF sDEFINE DEVICE TYPES 
11 SIODEF sDEFINE 1/0 FUNCTION CODES 
114 SIPLDEF sDEFINE INTERRUPT PRIORITY LEVELS 
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THIS SERVICE DEASSIGNS A PREVIOUSLY ASSIGNED I/0 CHANNEL AND CLEARS THE 
LINKAGE AND CONTROL INFORMATION IN THE CORRESPONDING CHANNEL CONTROL BLOCK. 
IF ANY 1/0 IS OUTSTANDING ON THE CHANNEL IT IS CANCELLED. IF A FILE IS 
OPEN ON THE CHANNEL IT IS CLOSED. IF A MAILBOX WAS ASSOCIATED WITH THE 
DEVICE WHEN IT WAS ASSIGNED, THE LINKAGE TO THE MAILBOX IS CLEARED. IF THE 
THE CHANNEL IS LAST ONE ASSIGNED TO THE DEVICE AND IT IS MARKED FOR DIS- 


MOUNT, THEN THE DISMOUNT IS COMPLETED. 
INPUTS: 
CHANCAP) = NUMBER OF THE I/0 CHANNEL TO DEASSIGN. 
R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO DEASSIGN CHANNEL. 
RO = SS$_IVCHAN = INVALID CHANNEL NUMBER SPECIFIED. 
RO = oes rea” = SPECIFIED CHANNEL IS NOT ASSIGNED TO A 


E OR THE CALLER DOES NOT HAVE SUFFICIENT 
PRIVILEGE TO ACCESS THE CHANNEL. 
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6 
6 RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
99 6 RO = SS$_NORMAL - NORMAL COMPLETION. 
00 6 
O1FC 000 & .ENTRY EXESDASSGN, “M<R2,R3,R4,R5,R6,R7,RB> 
55 O46 AC 3¢ 99 68 MOVZWL CHAN(AP),R5 7GET CHANNEL 
50 55 06 0 69 VL —«RS, RO :COPY 1/0 CHANNEL NUMBER 
FFFG' 00 70 BSBW =: LOC SVERIF CHAN [VERIFY CHANNEL NUMBER 
63 50 £9 00 71 BLBC ~—- RO, 508 SIF LBC INVALID CHANNEL 
56 1 o9 90 ie VL RI RE :COPY ADDRESS OF CCB 
5 2 D 1 7 VL —s- R2R [SAVE CHANNEL INDEX 
7E o1 9A 91 74 MOVZBL #CANSC_DASSGN,-(SP) [PUSH DEASSIGN CODE 
7E 5 C 1 75 MOVZWL R5,-(SP) ;PUSH CHANNEL NUMBER 
LL “EXESCANCELN > CANCEL HANNEL 
00000000'EF 02 FB 001 , CALLS #2,EXESCANCE CANCEL 1/0 ON CHANNE 
4 3; Channel is verified again. This is because the S$CANCEL could 
7 ; have activated a kernel mode AST routine which did another 
9 ; SDASSGN. (This can happen in S$BRKTHRU, for example) 
50 55 p j MOVL = RS, RO :COPY 1/0 CHANNEL NUMBER 
FFD" BSBW IOCSVERIFYCHAN [VERIFY CHANNEL NUMBER 
47 E 4 BLBC OséaR ‘IF LBC INVALID CHANNEL 
04 Ag oS 5 208: TSTL ¢ $L_WIND(R6) [FILE ACCESSED ON CHANNEL? 
25. (1 6 BEGL [IF EQL NO 
Q10w_S #30,R5,#10$_DEACCESS § :DEACCESS FILE 
07 50 Eg 4 3 BLBS ~ RO, $0$ [IF LBS SUCCESSFUL COMPLETION 
50 OAC BF 8B 4 CMPW ass _FILNOTACC,RO [NO FILE ACCESSED? 
dD 12 605 BNEQ 508 :1F NEG NO 
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— DEASSIGN 1/0 CHANN 1 -1984 
Once st mannan! ty Sow gL 
30$:  MOVPSL =<(SP; 
SETIPL #IPLS_ASTDEL 
TSTW CCB W710C(R6) 
BEQL 
SETIPL #iPLs SYNCH 
MFPR #PRS_ASTLVL,RO 
BEQL 55$ 
MOVZWL #RSNS_ASTWAIT,RO 
BSBW  SCHSROAIT 
40S: SETIPL i. 
50$: RET 
55$:  PUSHAB 8*20$ 
RE! 
: DEASSIGN CHANNEL 
lass BSBW © SCHSIOLOCKW 
MOVL  CCBSL_UCB(R6) RS 
CLRB = CCBSB AMOD (ROS 
: CHECK IF CHANNEL ASSOCIATED A MAILBOX 


BBC #CCBSV_AMB, - 
CCBSB_STS(R6), 70S 


hee AMB(RS), RS 


#0EVS 
Mat fe VBEVCHAR(RS), 70$ 
(R3) 


CLRL UCBSL_A 


HA] CBSW_REFC(RS) 
BSBW IOCSLAST_CHAN_AMBX 


33: 33 AX/VMS Macre V04-00 
SYS.SRCISYSDASSGN.MAR; 1 
esAvE CURRENT PROCESSOR STATUS 
sRAl — TO AST DELIVERY bevel VEL 
ANY 1/0 STILL OUTSTANDING? 
iF EQL NO 
SE TO SY CHRONS ZATION LEVEL 
D CURRENT AST LEVEL 
EQL KERNEL Ae QUEUED 
A IT RESOURCE WAIT NUMBER 


T FOR _AST 
OW INTERRUPTS 


ALLOW KERNEL AST TO BE DELIVERED 
ZAND CONTINUE AT 208 


sLOCK I/0 DATABASE FOR WRITE ACCESS 
:GET ASSIGNED DEVICE UCB ADDRESS 
;DEASSIGN CHANNEL 


AND IF SO, CLEAN IT UP 


: Branch if no MBX associated 

: by this channel. 

; Copy address of device UCB. 

: Get apees toted mailbox UCB address. 
: Branch if none 

: Branch if associated device is 

: not a mailbox. 

; Clear associated mailbox addresss. 
: Decrement mailbox UCB reference count. 
; Branch if mailbox still referenced. 
: Else, process last channel deassign 
; for the associated mailbox. 


; DECREMENT REFERENCE COUNT 
CHECK FOR AND PROCESS LAST CHANNEL DEASSIGN 
$: MOVL CCBSL_UCB 


DECW 


pneo BOS 


> Handle ref count reaching zero. 


CLAL UCBSt PI PID (RS) 

UCBSL mPayvAR2cR). 1008 
BSBU TOCSURLOCK 
BRB 


; check for last channel deassign on an 
hos: CMPW #1, UCBSW_REFC(RS) 


; Get device UCB address back. 
3; Decrement device reference count. 
; Branch if not very last reference. 


: Clear owner process id. 

: Branch if device not available 

: cluster-wide. 

: Dequeue cluster-wide device lock. 
; Do rest of Last channel deassign 


allocated device 
; UCB reference count one? 
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von DEASSIGN 1/0 0 CHANNEL g-$E eats ri te 33 35 toys. SRCISYSDASSGN.MAR; 1 . 
0B 12 4 : BNEQ 1108 ; If not one, branch to finish request 
06 38 AS = «617~—~—=Cé#€E 1 8 BBC #DEVSV_ALL, = 3 If device not allocated, 
43 ; UCBSL_BEVCHAR(RS), 110$ ; branch to finish request. 
BE : ; Galt driver's cancel 1/0 routine with CANSC_DASSGN reason code and 
SE : : f appropriate, delete UCB 
52 37 00 BE é 100$:  MOVL ; Get channel index 
FFS3C* 3 BSBw POESCAST_CHAN ; Do common Last channel deassign. 
ee ¥ SET STATUS AND EXIT 
0 9 $f C4 é 1108: oe. #Ss$ rs a RO ; Set normal completion. 
FF36° 31 34 86 IOCSONL ; Unlock 1/0 data base and return. 
GOcA 64 
CA 65 END 
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Symbol table Wer See She Bbisaice LENE Teco eels, «9 Page 2, 
$$T1 = 1 
CANSC_DASSGN = 
CCB$B_AMOD = 
CCBSB_STS = 
CCBSL_UCB = 
CCBSL_WIND z 
CCBSV_AMB = 0 
CCBSW_10C = A 
CHAN 2 $ 
DEVSV_ALL = 
DEVSV_ = 2 
DEVSV_ MBX = 4 
EXESDASSEN” 00000000 RG” 5 
108 DEACCESS = booo00se 
IOCSLAS eeeerere ¥ 8 
IOCSLA $f ~CHAN_AMBX eeeeeeee 8 Xx 
1OCSUNLOCK eeeeeeee =X 
IOCSUNLOCK_DEV eeeeneee 8 6X 
IOCSVERIF YCHAN eeeeeeee 8 6X 
IPLS_ASTDE = 000000 
IPL$_SYNCH = 4 0 
PRS_ASTLVL = 0001 
PRS_IPL = 4 1 
RSNS_ASTWAIT = 0 
SCHSTOLOCKW eerereee xX 93 
SCHSRWAIT geeerene x 
SS$_F ILNOTACC = QOOO00AC 
ss = 00000001 
SysSalow eeneeeee GX 02 
UCBSL_ = 0000 g 
UCBSL_DEVCHAR = 0000 
UCBSL_DEVCHAR2 = 000 C 
UCBSL_PID = 000 gc 
UCBSW_REFC = 000 C 
ecceecesooccooco + 
! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
. «ABS . ( -» 00 ¢ 9} NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD ag NOVEC BYTE 
SABSS ( e 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R&D T NOVEC BYTE 
AE XENONPAGED CA ( 202.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
a e 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization ; :00:00.04 77 
50 processing i) :00: “$e ft 
Syabol table sort :00:02. ‘ 
s2 “3 : ‘8 38 3°38 
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VAX=-11 Macro Run Statistics 


Symbol table output 
Psect synopsis output 


H 7 
= SYSTEM SERVICE DEASSIGN 1/0 CHANNEL 
Cross-reference output 
Assembler run totals 
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613 
pages) of virtual memory were used to buffer fhe intermediate 
pages of symbol table space allocated to hold 1600 nernqeeen and 
$6 source Lines were read in Pass 1, produc ng object records in Pass 2. 

6 pages of virtual memory were used to define 25 macros. 

secenwar nen eee e awa e none ene ea + 


! Macro Library statistics ! 


¢ ower er oem eee ew eee ewe eee een cea} 
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S£P-198¢ 03:50:20 


The workin 
79726 bytes 


sade. 
There were local symbols. 


Macro Library name Macros defined 


~$259$0UA28:(7S..08 ee TON lege aes ne ante 4 oR 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 11 
TOTALS (all Libraries) 22 


1758 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSDASSGN/0BJ=0BJ$:SYSDASSGN MSRC$:SYSDASSGN/UPDATE=(ENHS$: SYSDASSGN) +EXECML$/LIB 


— 


AX/VMS Macro V04-00 


Pa 
SYS.SRCISYSDASSGN.MAR; 1 a 3) 


L EQUIPMENT CORPORATION 
ENTIAL .AND PROPRIETARY 


AH-BT13A-SE 


G 
VAX/VMS_V4.0 N 


DIGIT 
CONFI 


1383 


A 
: 


